(defun fact (n)
  (if (<= n 0) 1
   (loop for i from 1 to n
     for fac = 1 then (* fac i)
     finally (return fac))))

(defun combo (n r)
  (/ (fact n) (* (fact r) (fact (- n r)))))


(defun probl53()
  (loop for i from 2 to 100 
     with s = 0
     do (loop for j from 1 to i 
	   when (> (combo i j) 1000000) 
	   do (setq s (1+ s)))
     finally (return s)))